Chip: Hang es video/CHIP_ZENESZERKESZTO_2005.ISO/audio_3/visual/robotfunk/setup.exe/{app}/main.dxr/ui_158.ls

Text File | 2003-11-19 | 1.0 KB | 39 lines

property md
global preloadlist, select, fpslist, curscript

on mouseDown me
  md = 1
end

on mouseLeave me
  md = 0
end

on mouseUp me
  curscript = "saveclip"
  if md then
    if (select > 0) and (preloadlist[select].ilk = #list) then
      if preloadlist[select].count > 0 then
        savepath = baGetFilename("save", "c:", "untitled.clp", "Flowmotion Clips|*.clp", 32, "Save new file", 0, 400, 300)
        if savepath = EMPTY then
          exit
        end if
        fileLink = new(xtra("vList"), savepath)
        pl = []
        repeat with j = 1 to preloadlist[select].count
          if preloadlist[select].count >= j then
            if preloadlist[select][j].ilk = #image then
              pl[j] = preloadlist[select][j].duplicate()
              preloadlist[select][j] = pl[j]
            end if
          end if
        end repeat
        pl[j + 1] = member(select, "thumbnails").image.duplicate()
        pl[j + 2] = fpslist[select]
        write(fileLink, pl)
      end if
    end if
  end if
  md = 0
end